home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mssghkct / minmax.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-20  |  3.9 KB  |  116 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMinMax 
  3.    Caption         =   "MinMax Sample"
  4.    ClientHeight    =   2475
  5.    ClientLeft      =   2415
  6.    ClientTop       =   3630
  7.    ClientWidth     =   5085
  8.    Height          =   2880
  9.    Icon            =   "MinMax.frx":0000
  10.    Left            =   2355
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2475
  13.    ScaleWidth      =   5085
  14.    Top             =   3285
  15.    Width           =   5205
  16.    Begin VB.Label Label4 
  17.       BackStyle       =   0  'Transparent
  18.       Caption         =   "e-mail:"
  19.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  20.          Name            =   "MS Sans Serif"
  21.          Size            =   8.25
  22.          Charset         =   177
  23.          Weight          =   400
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   210
  29.       Left            =   60
  30.       TabIndex        =   3
  31.       Top             =   1080
  32.       Width           =   510
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   $"MinMax.frx":0442
  36.       Height          =   675
  37.       Left            =   60
  38.       TabIndex        =   2
  39.       Top             =   60
  40.       Width           =   4965
  41.    End
  42.    Begin VB.Label lblMailTo 
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "alexw@netvision.net.il"
  45.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.          Name            =   "MS Sans Serif"
  47.          Size            =   8.25
  48.          Charset         =   177
  49.          Weight          =   400
  50.          Underline       =   -1  'True
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       ForeColor       =   &H8000000D&
  55.       Height          =   240
  56.       Left            =   570
  57.       MouseIcon       =   "MinMax.frx":04DD
  58.       MousePointer    =   99  'Custom
  59.       TabIndex        =   1
  60.       Top             =   1050
  61.       Width           =   1875
  62.    End
  63.    Begin VB.Label Label2 
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "Copyright 
  66.  1998, Alex Wainstein"
  67.       Height          =   240
  68.       Left            =   30
  69.       TabIndex        =   0
  70.       Top             =   780
  71.       Width           =   3210
  72.    End
  73.    Begin MSGHOOKLibCtl.MsgHook MsgHook1 
  74.       Left            =   2730
  75.       OleObjectBlob   =   "MinMax.frx":062F
  76.       Top             =   1290
  77.    End
  78. Attribute VB_Name = "frmMinMax"
  79. Attribute VB_Creatable = False
  80. Attribute VB_Exposed = False
  81. Option Explicit
  82. Private Sub Form_Load()
  83. MsgHook1.hwnd = hwnd
  84. MsgHook1.AddMessage WM_GETMINMAXINFO, mshEatMessage
  85. End Sub
  86. Private Sub Form_GetMinMaxInfo(ByVal MinMaxInfoAddress As Long)
  87.     Dim MinMax As MINMAXINFO
  88.     ' Copy to VB inrinsic variable
  89.     CopyMemory MinMax, ByVal MinMaxInfoAddress, Len(MinMax)
  90.     ' Set dimensions
  91.     MinMax.ptMinTrackSize.x = Screen.Width \ Screen.TwipsPerPixelX \ 4
  92.     MinMax.ptMinTrackSize.y = 3480 \ Screen.TwipsPerPixelY \ 2
  93.     MinMax.ptMaxTrackSize.x = Screen.Width \ Screen.TwipsPerPixelX \ 2
  94.     MinMax.ptMaxTrackSize.y = 3480 \ Screen.TwipsPerPixelY
  95.     ' Copy back to where Windows expects to get the information
  96.     CopyMemory ByVal MinMaxInfoAddress, MinMax, Len(MinMax)
  97. End Sub
  98. Private Sub lblMailTo_Click()
  99. Dim res As Long
  100. Dim lpOperation As String
  101. Dim lpFile As String
  102. Dim lpParameters As String
  103. Dim lpDirectory As String
  104. Dim nShowCmd As Long
  105. lpOperation = "open"
  106. lpFile = "MAILTO:" + lblMailTo
  107. nShowCmd = vbNormalFocus
  108. res = ShellExecute(hwnd, lpOperation, lpFile, lpParameters, ByVal lpDirectory, nShowCmd)
  109. End Sub
  110. Private Sub MsgHook1_Message(ByVal MsgId As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal MsgProcessing As Integer, MsgResult As Long)
  111. Select Case MsgId
  112.     Case WM_GETMINMAXINFO:
  113.         Form_GetMinMaxInfo lParam
  114. End Select
  115. End Sub
  116.